home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Summer / rerun-1985-summer-side-b.d64 / sound sampler (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  160 lines
  1. 5 print"[147]"
  2. 10 s=54272:forl=0to24:pokes+l,.:next
  3. 20 v=s+24:w=s+4:fu=s+1:fl=s:ad=s+5:sr=s+6:sl=s+14:su=s+15:pokev,15:pokead,15
  4. 25 print"     [158]*** sound effects sampler[146] ***"
  5. 30 print"           by bruce bartlett[154]"
  6. 31 print"a[146] echoing ufo takeoff"
  7. 32 print"b[146] pulsing ufo takeoff"
  8. 33 print"c[146] crystal goblet"
  9. 34 print"d[146] alien planet"
  10. 35 print"e[146] computer computing"
  11. 36 print"f[146] chipmunk fight"
  12. 37 print"g[146] beating rising buzzer"
  13. 38 print"h[146] seasick"
  14. 39 print"i[146] rubber band"
  15. 40 print"j[146] chime"
  16. 41 print"k[146] spinning falling wheel"
  17. 42 print"l[146] bwee"
  18. 43 print"m[146] cosmic rays"
  19. 44 print"n[146] pulse sweep"
  20. 45 print"o[146] ow"
  21. 46 print"p[146] warbling"
  22. 47 print"q[146] deedle deedle"
  23. 49 print"[159]     type the letter of your choice[154]"
  24. 50 ifa>0anda<18thenprint"":forn=1toa+3:print:next:print"[154]"chr$(a+64)"[146]"
  25. 55 pokead,15:pokesr,0
  26. 60 geta$:ifa$=""then60
  27. 70 a=asc(a$)-64:ifa<1ora>17then60
  28. 72 print"":forn=1toa+3:print:next:print"[158]"chr$(a+64)"[146]"
  29. 75 ifa=16then1600
  30. 77 ifa=17then1700
  31. 80 onagoto100,200,300,400,500,600,700,800,900,1000,1100,1200,1300,1400,1500
  32. 100 rem ***echoing ufo takeoff***
  33. 110 pokesr,8
  34. 120 pokew,21
  35. 130 pokesl,67:pokesu,12
  36. 140 forf=0to255:pokefu,f:pokefl,f:next
  37. 150 pokew,20:fort=1to100:nextt
  38. 160 goto50
  39. 200 rem ***pulsing ufo takeoff***
  40. 210 forf=0to155:pokew,17:pokefu,f:fort=1to6:nextt
  41. 220 pokew,129:fort=1to50:nextt
  42. 230 nextf
  43. 240 pokew,128
  44. 250 goto50
  45. 300 rem crystal goblet
  46. 310 pokes+18,17:pokew,19
  47. 320 pokesu,64
  48. 330 forn=1to4
  49. 340 forf=1to255:pokefu,f:nextf
  50. 350 forf=255to1step-1:pokefu,f:nextf
  51. 360 nextn
  52. 370 pokew,18:goto50
  53. 400 rem ***alien planet***
  54. 410 pokesl,67:pokesu,12
  55. 420 pokew,21
  56. 430 forn=1to4
  57. 440 forf=0to255:pokefu,f:nextf
  58. 450 forf=255to0step-1:pokefu,f:nextf
  59. 460 nextn
  60. 470 pokew,20:goto50
  61. 500 rem ***computer computing***
  62. 510 pokesl,240:pokesu,12
  63. 520 pokew,19
  64. 530 forn=1to50:f=int(rnd(1)*255)+1:pokefu,f
  65. 540 fort=1to60:next
  66. 550 nextn
  67. 560 pokew,18:goto50
  68. 600 rem ***chipmunk fight***
  69. 610 pokew,21
  70. 620 forn=1to150:f=int(rnd(1)*255)+1
  71. 630 pokefu,f:pokesu,f
  72. 640 fort=1to12:nextt
  73. 650 nextn
  74. 660 pokew,20:goto50
  75. 700 rem ***beating rising buzzer***
  76. 710 pokead,9:pokesu,3
  77. 720 pokesr,64+12
  78. 730 pokefu,4:pokefl,10
  79. 740 pokew,21
  80. 750 forf=0to255step.3:pokesl,f:next
  81. 760 pokew,20:fort=1to1000:next:goto50
  82. 800 rem ***seasick***
  83. 810 pokead,63:pokefu,4:pokefl,10:pokesu,10
  84. 820 pokew,21
  85. 830 forn=1to4
  86. 840 forf=0to255:pokesl,f:nextf
  87. 850 forf=255to0step-1:pokesl,f:nextf
  88. 860 nextn
  89. 870 pokew,20:goto50
  90. 900 rem ***rubber band***
  91. 910 pokead,10:pokesr,64+9
  92. 920 pokefu,67:pokefl,12:pokesu,5
  93. 930 pokew,19
  94. 940 forf=0to255step1.3:pokesl,f:next
  95. 950 pokew,18:fort=1to500:next:goto50
  96. 1000 rem ***chime***
  97. 1010 pokead,10:pokesr,64+11
  98. 1020 pokesu,10:pokesl,10
  99. 1030 pokefu,4:pokew,21:fort=1to50:next
  100. 1040 pokew,20:fort=1to1800:next
  101. 1050 goto50
  102. 1100 rem ***spinning falling wheel***
  103. 1110 pokev,15+32:pokes+23,239
  104. 1120 pokew,33
  105. 1130 forsp=10to255
  106. 1140 forf=255to0step-sp:pokefu,f:pokes+22,f:next
  107. 1150 nextsp
  108. 1160 pokew,32:pokes+23,0:goto50
  109. 1200 rem ***bwee***
  110. 1210 pokead,119
  111. 1220 forn=1to30
  112. 1230 pokew,17
  113. 1240 forf=int(rnd(.)*50)+50toint(rnd(.)*150)+50step2:pokefu,f:next:pokew,16
  114. 1250 nextn
  115. 1260 goto50
  116. 1300 rem ***cosmic rays***
  117. 1310 pokead,119
  118. 1320 forn=1to15
  119. 1330 pokew,33
  120. 1340 forf=int(rnd(.)*150)+50toint(rnd(.)*50)step-1
  121. 1350 pokefu,f:nextf
  122. 1360 pokew,32
  123. 1370 nextn
  124. 1380 goto50
  125. 1400 rem ***pulse sweep***
  126. 1410 pokefu,2:pokefl,12:pokew,65:pl=54274:pu=54275
  127. 1420 forn=1to3
  128. 1430 forl=0to255step2:pokepl,l:pokepu,0:next
  129. 1440 forl=255to0step-2:pokepl,l:pokepu,0:next
  130. 1450 nextn
  131. 1460 pokew,64:goto50
  132. 1500 rem ***ow***
  133. 1510 pokead,47:pokes+23,239:pokev,15+32
  134. 1520 forn=1to10
  135. 1530 pokefu,int(rnd(.)*5)+2
  136. 1540 pokew,33
  137. 1550 forsw=100to0step-3
  138. 1560 pokes+22,sw:nextsw
  139. 1570 pokew,32:fort=1to100:next
  140. 1580 nextn
  141. 1590 pokes+23,0:pokev,15:goto50
  142. 1600 rem ***warbling***
  143. 1610 pokew,17:forn=1to30
  144. 1620 forf=50to200step20:pokefu,f:nextf
  145. 1630 nextn
  146. 1640 forn=1to20
  147. 1650 forf=50to200step10:pokefu,f:nextf
  148. 1660 nextn
  149. 1670 pokew,16:goto50
  150. 1700 rem ***deedle deedle***
  151. 1710 pokew,33:ford=100to0step-5
  152. 1720 pokefu,64:fort=1tod:next
  153. 1730 pokefu,54:fort=1tod:next
  154. 1740 nextd
  155. 1750 ford=0to100step5
  156. 1760 pokefu,64:fort=1tod:next
  157. 1770 pokefu,54:fort=1tod:next
  158. 1780 nextd
  159. 1790 pokew,32:goto50
  160.